Business Assistant/Business Assistant.iso/indus/auto_inv/inv_0100.prg

Text File | 1991-08-07 | 5KB | 180 lines

*--------------------------------------------------------------------------
* Program KEV_0100 - Add New Invoice Kevins Subaru Invoicing
*                       (c) 1989 Systematics Consulting, Inc.
*--------------------------------------------------------------------------
CLOSE ALL
SELECT 1
USE KEV_MSTR INDEX KEV_IDX1

RESTORE FROM KEV_TAX.MEM ADDITIVE
X_DATE = DATE()
X_INV_NO = 00000
X_FIRSTNAME = SPACE(20)
X_LASTNAME = SPACE(35)
X_ADDRESS1 = SPACE(40)
X_ADDRESS2 = SPACE(40)
X_ADDRESS3 = SPACE(40)
X_CITY = SPACE(20)
X_STATE = "  "
X_ZIP = 00000
X_AREA = 303
X_TELE1 = "___"
X_TELE2 = "____"
X_SPEEDO = 0
X_LICENSE = SPACE(7)
X_CAR_TYPE = SPACE (30)
X_REPAIR1 = SPACE(50)
X_REPAIR2 = SPACE(50)
X_REPAIR3 = SPACE(50)
X_EMMISSION = 000.00
X_SUBLET = 000.00
X_OIL = 000.00
X_TAX_RATE = SAVE_TAX
PUBLIC INVNUM
INVNUM = 00000
PUBLIC INVNAME
INVNAME = "  "

* ----  recall last invoice number used and add 1 to it and save ------

RESTORE FROM KEV_INVNO.MEM ADDITIVE
KEV_INVNO = KEV_INVNO + 1

IF KEV_INVNO > 99999
  KEV_INVNO = 1
  ENDIF

INVNUM = KEV_INVNO
X_INV_NO = KEV_INVNO
ERASE KEV_INVNO.MEM
SAVE ALL LIKE KEV_INVNO TO KEV_INVNO.MEM

* --------  build invoice add screen ----------
CLEAR
@ 24, 10 SAY  "Systematics Consulting, Inc. [phone] - Program KEV_0100"
@ 1,  1 SAY  DATE()
@ 1, 71 SAY  TIME()
@ 2,  5 TO  5,75 DOUBLE
@ 3, 15 SAY  "             KEVIN'S SUBARU               "
@ 4, 15 SAY  "     Add New Invoice - Name and Address   "
@  7, 19  SAY "DATE:"
@  7, 25  GET  X_DATE
@  7, 44  SAY "INVOICE NUMBER:"
@  7, 60  SAY  X_INV_NO PICTURE "#####"
@  8, 13  SAY "FIRST NAME:"
@  8, 25  GET  X_FIRSTNAME
@  9, 14  SAY "LAST NAME:"
@  9, 25  GET  X_LASTNAME
@ 11, 16  SAY "ADDRESS:"
@ 11, 25  GET  X_ADDRESS1
@ 12, 25  GET  X_ADDRESS2
@ 13, 25  GET  X_ADDRESS3
@ 14, 19  SAY "CITY:"
@ 14, 25  GET  X_CITY
@ 14, 46  SAY "STATE:"
@ 14, 53  GET  X_STATE
@ 14, 57  SAY "ZIP:"
@ 14, 62  GET  X_ZIP PICTURE "#####"
@ 16, 14  SAY "TELEPHONE:"
@ 16, 25  GET  X_AREA PICTURE "###"
@ 16, 29  GET  X_TELE1
@ 16, 32  SAY  "-"
@ 16, 33  GET  X_TELE2
@ 18, 10  SAY "CAR YEAR/TYPE:"
@ 18, 25  GET  X_CAR_TYPE
@ 19, 12  SAY "SPEEDOMETER:"
@ 19, 25  GET  X_SPEEDO  PICTURE "999999"
@ 19, 35  SAY "LICENSE:"
@ 19, 44  GET  X_LICENSE
@ 22, 14  SAY "Enter data, Press <CTL><END> at any time to save data."
@  6,  7  TO 20, 73
@ 21,  9  TO 23, 71    DOUBLE

READ

CLEAR
@ 24, 10 SAY  "Systematics Consulting, Inc. [phone] - Program KEV_0100"
@ 1,  1 SAY  DATE()
@ 1, 71 SAY  TIME()
@ 2,  5 TO  5,75 DOUBLE
@ 3, 15 SAY  "             KEVIN'S SUBARU               "
@ 4, 15 SAY  "     Add New Invoice - Other Information  "
@  7, 12  SAY "Inovice #:"
@  7, 23  SAY  X_INV_NO PICTURE "#####"
@  7, 30  SAY "Date:"
@  7, 36  SAY  X_DATE
@  9, 12  SAY  TRIM(X_FIRSTNAME) + " " + TRIM(X_LASTNAME)
@ 11, 12  SAY "Repair Instructions:"
@ 12, 12  GET  X_REPAIR1
@ 13, 12  GET  X_REPAIR2
@ 14, 12  GET  X_REPAIR3
@ 16, 29  SAY "Emissions: "
@ 16, 42  GET  X_EMMISSION PICTURE "####.##"
@ 17, 27  SAY "Sub-Contract:"
@ 17, 42  GET  X_SUBLET PICTURE "####.##"
@ 18, 22  SAY "Fluids (Oil, etc):"
@ 18, 42  GET  X_OIL PICTURE "####.##"
@ 19, 31  SAY "Tax Rate:"
@ 19, 44  GET  X_TAX_RATE PICTURE "##.#"
@ 22, 14  SAY "Enter data, Press <CTL><END> at any time to save data."
@  6,  7  TO 20, 73
@ 21,  9  TO 23, 71    DOUBLE
READ

@ 22, 14  SAY "  ADDING DATA TO MASTER FILE -                        "
@ 21,  9  TO 23, 71 DOUBLE

APPEND BLANK
REPLACE KEV_MSTR->DATE WITH X_DATE
REPLACE KEV_MSTR->INV_NO WITH X_INV_NO
REPLACE KEV_MSTR->FIRSTNAME WITH X_FIRSTNAME
REPLACE KEV_MSTR->LASTNAME WITH X_LASTNAME
REPLACE KEV_MSTR->ADDRESS1 WITH X_ADDRESS1
REPLACE KEV_MSTR->ADDRESS2 WITH X_ADDRESS2
REPLACE KEV_MSTR->ADDRESS3 WITH X_ADDRESS3
REPLACE KEV_MSTR->CITY WITH X_CITY
REPLACE KEV_MSTR->STATE WITH X_STATE
REPLACE KEV_MSTR->ZIP WITH X_ZIP
REPLACE KEV_MSTR->AREA WITH X_AREA
REPLACE KEV_MSTR->TELE1 WITH X_TELE1
REPLACE KEV_MSTR->TELE2 WITH X_TELE2
REPLACE KEV_MSTR->SPEEDO WITH X_SPEEDO
REPLACE KEV_MSTR->LICENSE WITH X_LICENSE
REPLACE KEV_MSTR->CAR_TYPE WITH X_CAR_TYPE
REPLACE KEV_MSTR->REPAIR1 WITH X_REPAIR1
REPLACE KEV_MSTR->REPAIR2 WITH X_REPAIR2
REPLACE KEV_MSTR->REPAIR3 WITH X_REPAIR3
REPLACE KEV_MSTR->EMMISSION WITH X_EMMISSION
REPLACE KEV_MSTR->SUBLET WITH X_SUBLET
REPLACE KEV_MSTR->OIL WITH X_OIL
REPLACE KEV_MSTR->TAX_RATE WITH X_TAX_RATE
REPLACE KEV_MSTR->PRINTED WITH "N"
REINDEX
INVNAME = TRIM(X_FIRSTNAME) + " " + TRIM(X_LASTNAME)

@ 22, 14  SAY "  ADD FUNCTION COMPLETE                               "
@ 21,  9  TO 23, 71    DOUBLE

CLEAR
@ 24, 10 SAY  "Systematics Consulting, Inc. [phone] - Program KEV_0100"
@ 1,  1 SAY  DATE()
@ 1, 71 SAY  TIME()
@ 2,  5 TO  5,75
@ 3, 15 SAY  "             KEVIN'S SUBARU               "
@ 4, 15 SAY  "             Add New Invoice              "
ANSWER = "1"
@ 21, 14  SAY "Enter 1 to Add Labor, 2 to Add Parts,       "
@ 22, 14  SAY "any other character to return to Main Menu: "  GET ANSWER
@ 20,  9  TO 23, 70  DOUBLE
READ

IF ANSWER = "1"
  DO KEV_0110
  ENDIF
IF ANSWER = "2"
  DO KEV_0120
  ENDIF
RETURN

*---------- END OF PROGRAM ----------------